Public Class Database_Factory
    Public Function GetAllDatabasesForServer(ByVal lServerID As Long) As ArrayList
        Dim oFactory As New DBDatabase_Factory
        Return oFactory.GetAllDatabasesForServer(lServerID)
    End Function

    Public Function GetDatabaseByName(ByVal sDatabase As String) As SQLAutoDocLib.Database
        Dim oFactory As New DBDatabase_Factory
        Return oFactory.GetDatabaseByName(sDatabase)
    End Function

    Public Function GetAllRevsForDatabase(ByVal lDatabaseID As Long) As ArrayList
        Dim oFactory As New DBDatabase_Factory
        Return oFactory.getallrevsfordatabase(lDatabaseID)
    End Function
End Class
